Public Class WaitStateLog
    Private mlID As Long
    Private mlDatabaseID As Long
    Private mlSessionID As Long
    Private msCreateDate As String = Now

    Private msWaitState_WaitType As String
    Private mlWaitState_Requests As Long
    Private mlWaitState_Wait_Time As Long
    Private mlWaitState_Signal_Wait_Time As Long

#Region "Properties"
    Public Property ID() As Long
        Get
            Return mlID
        End Get
        Set(ByVal value As Long)
            mlID = value
        End Set
    End Property

    Public Property DatabaseID() As Long
        Get
            Return mlDatabaseID
        End Get
        Set(ByVal value As Long)
            mlDatabaseID = value
        End Set
    End Property

    Public Property SessionID() As Long
        Get
            Return mlSessionID
        End Get
        Set(ByVal value As Long)
            mlSessionID = value
        End Set
    End Property

    Public Property CreateDate() As String
        Get
            Return msCreateDate
        End Get
        Set(ByVal value As String)
            msCreateDate = value
        End Set
    End Property

    Public Property WaitState_WaitType() As String
        Get
            Return msWaitState_WaitType
        End Get
        Set(ByVal value As String)
            msWaitState_WaitType = value
        End Set
    End Property

    Public Property WaitState_Requests() As Long
        Get
            Return mlWaitState_Requests
        End Get
        Set(ByVal value As Long)
            mlWaitState_Requests = value
        End Set
    End Property

    Public Property WaitState_Wait_Time() As Long
        Get
            Return mlWaitState_Wait_Time
        End Get
        Set(ByVal value As Long)
            mlWaitState_Wait_Time = value
        End Set
    End Property

    Public Property WaitState_Signal_Wait_Time() As Long
        Get
            Return mlWaitState_Signal_Wait_Time
        End Get
        Set(ByVal value As Long)
            mlWaitState_Signal_Wait_Time = value
        End Set
    End Property

#End Region

#Region "Data"
    Public Sub Load()
        Dim oObject As New DBWaitStatelog

        oObject.Load(Me)
    End Sub

    Public Sub Save()
        Dim oObject As New DBWaitStatelog

        Dim oNextID As New DBNextIDValue("DBWaitStateLog")
        Dim lNextID As Long = oNextID.NextValue

        Me.ID = lNextID

        Me.CreateDate = Now
        oObject.Add(Me)
    End Sub

    Public Sub Delete()
        Dim oObject As New DBWaitStatelog

        oObject.Delete(Me)
    End Sub
#End Region
End Class
